home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 2 / Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso / Pearls / dev / TurboM2 / m2 / RealInOut.def < prev    next >
Text File  |  1994-11-08  |  445b  |  16 lines
  1. DEFINITION MODULE RealInOut ;
  2.  
  3. VAR
  4.   done : BOOLEAN ;
  5.  
  6. PROCEDURE ReadReal( VAR x : REAL ) ;
  7. (* Read Real from keyboard according to syntax:                *)
  8. (*   ["+"|"-"] digit {digit} [.digit{digit}] ["E"["+"|"-"]digit{digit}] *)
  9. (* done = true, if a valid real was read                *)
  10. (* At most 7 digits are significant, leading zeros not counting        *)
  11.  
  12. PROCEDURE WriteReal( x : REAL ; n : INTEGER ) ;
  13. (* Write x using n characters, minimum 9 *)
  14.  
  15. END RealInOut.
  16.